Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / vsview17 / fview.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1994-09-01 | 14.7 KB | 449 lines

VERSION 2.00 Begin Form fviewport BackColor = &H00C0C0C0& BorderStyle = 3 'Fixed Double Caption = "ViewPort" ClientHeight = 6615 ClientLeft = 315 ClientTop = 345 ClientWidth = 8850 ControlBox = 0 'False Height = 7080 Left = 225 LinkTopic = "Form1" MinButton = 0 'False ScaleHeight = 6615 ScaleWidth = 8850 Top = -30 Width = 9030 Begin vsViewPort vsViewPort4 BackColor = &H00C0C0C0& Height = 3060 Left = 210 Top = 2940 VirtualHeight = 7300 VirtualWidth = 6800 Width = 6210 Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Mailing Address" ForeColor = &H00800000& Height = 1800 Index = 1 Left = 210 TabIndex = 35 Top = 2100 Width = 6060 Begin TextBox Text1 Height = 285 Index = 12 Left = 1680 TabIndex = 15 Top = 1380 Width = 4215 End Begin TextBox Text1 Height = 285 Index = 11 Left = 4845 TabIndex = 16 Top = 1110 Width = 1050 End Begin TextBox Text1 Height = 285 Index = 10 Left = 4290 TabIndex = 18 Top = 1110 Width = 570 End Begin TextBox Text1 Height = 285 Index = 8 Left = 1680 TabIndex = 19 Top = 1110 Width = 2625 End Begin TextBox Text1 Height = 540 Index = 7 Left = 1680 TabIndex = 20 Top = 585 Width = 4215 End Begin TextBox Text1 Height = 285 Index = 6 Left = 1680 TabIndex = 21 Top = 315 Width = 4215 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "Country" Height = 225 Index = 7 Left = 105 TabIndex = 31 Top = 1440 Width = 1065 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "City, State ZIP" Height = 225 Index = 6 Left = 105 TabIndex = 32 Top = 1155 Width = 1305 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "Address" Height = 225 Index = 4 Left = 105 TabIndex = 33 Top = 630 Width = 1065 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "Name" Height = 225 Index = 3 Left = 105 TabIndex = 34 Top = 315 Width = 1065 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Shipping Address" ForeColor = &H00800000& Height = 1800 Index = 0 Left = 210 TabIndex = 22 Top = 210 Width = 6060 Begin TextBox Text1 Height = 285 Index = 0 Left = 1680 TabIndex = 28 Top = 315 Width = 4215 End Begin TextBox Text1 Height = 540 Index = 1 Left = 1680 TabIndex = 27 Top = 585 Width = 4215 End Begin TextBox Text1 Height = 285 Index = 2 Left = 1680 TabIndex = 26 Top = 1110 Width = 2625 End Begin TextBox Text1 Height = 285 Index = 3 Left = 4290 TabIndex = 25 Top = 1110 Width = 570 End Begin TextBox Text1 Height = 285 Index = 4 Left = 4845 TabIndex = 24 Top = 1110 Width = 1050 End Begin TextBox Text1 Height = 285 Index = 5 Left = 1680 TabIndex = 23 Top = 1380 Width = 4215 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "Name" Height = 225 Index = 0 Left = 105 TabIndex = 12 Top = 315 Width = 1065 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "Address" Height = 225 Index = 1 Left = 105 TabIndex = 13 Top = 630 Width = 1065 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "City, State ZIP" Height = 225 Index = 2 Left = 105 TabIndex = 14 Top = 1155 Width = 1305 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "Country" Height = 225 Index = 5 Left = 105 TabIndex = 17 Top = 1440 Width = 1065 End End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "&Notes" Height = 2640 Left = 210 TabIndex = 29 Top = 4095 Width = 6105 Begin TextBox Text1 BackColor = &H0080FFFF& Height = 2115 Index = 9 Left = 210 TabIndex = 30 Top = 315 Width = 5685 End End End Begin vsInForm VSInForm1 BarColor = &H00C0C0C0& BarColorInactive= &H00C0C0C0& BarHeight = 36 BarStyle = 3 'Raised ButtonsLeft = 0 '0 ButtonsRight = 1 '1 CapAlign = 1 'Left Center CapColor = &H00C0C0C0& CapColorInactive= &H00C0C0C0& CapMultiLine = -1 'True CapStyle = 1 'Raised Caption = " Virtual Views on your screen" ClipMon = -1 'True FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False FrameColor = &H00C0C0C0& FrameColorInactive= &H00C0C0C0& FrameCorners = 0 'False FrameSizing = 0 'None FrameStyle = 3 'Raised Form FrameWidth = 12 Left = 0 MinHeight = 870 MinWidth = 3500 PictRight0 = FVIEW.FRX:0000 Top = 3045 End Begin vsViewPort vsViewPort3 BackColor = &H00808080& Height = 960 Left = 6615 Top = 3255 VirtualHeight = 0 VirtualWidth = 3270 Width = 2010 Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 4 Left = 2625 Picture = FVIEW.FRX:00D2 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 0 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 3 Left = 1995 Picture = FVIEW.FRX:03D4 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 1 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 2 Left = 1365 Picture = FVIEW.FRX:06D6 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 2 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 1 Left = 735 Picture = FVIEW.FRX:09D8 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 11 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 435 Index = 0 Left = 105 Picture = FVIEW.FRX:0CDA ScaleHeight = 435 ScaleWidth = 435 TabIndex = 10 Top = 105 Width = 435 End End Begin vsViewPort vsViewPort2 BackColor = &H00808080& Height = 2640 Left = 6615 Top = 210 VirtualHeight = 3900 VirtualWidth = 0 Width = 2010 Begin CommandButton Command1 BackColor = &H00808080& Caption = "Other" Height = 540 Index = 5 Left = 210 TabIndex = 9 Top = 3255 Width = 1380 End Begin CommandButton Command1 BackColor = &H00808080& Caption = "Information" Height = 540 Index = 4 Left = 210 TabIndex = 8 Top = 2625 Width = 1380 End Begin CommandButton Command1 BackColor = &H00808080& Caption = "Hotels" Height = 540 Index = 3 Left = 210 TabIndex = 7 Top = 1995 Width = 1380 End Begin CommandButton Command1 BackColor = &H00808080& Caption = "Language" Height = 540 Index = 2 Left = 210 TabIndex = 6 Top = 1365 Width = 1380 End Begin CommandButton Command1 BackColor = &H00808080& Caption = "Population" Height = 540 Index = 1 Left = 210 TabIndex = 5 Top = 735 Width = 1380 End Begin CommandButton Command1 BackColor = &H00808080& Caption = "Area" Height = 540 Index = 0 Left = 210 TabIndex = 4 Top = 105 Width = 1380 End End Begin vsViewPort vsViewPort1 BackColor = &H00808080& Height = 2640 Index = 0 Left = 210 Top = 210 VirtualHeight = 0 VirtualWidth = 0 Width = 6210 Begin PictureBox Picture1 Height = 4815 Index = 0 Left = 135 Picture = FVIEW.FRX:0FDC ScaleHeight = 4785 ScaleWidth = 7185 TabIndex = 3 Top = 75 Width = 7215 End End Option Explicit Sub Form_Load () VSinform1.CustomFrame = True VSViewPort1(0).VirtualWidth = Picture1(0).Width + 200 VSViewPort1(0).VirtualHeight = Picture1(0).Height + 200 End Sub Sub VSInForm1_ClickRButton (Button As Integer) Unload Me End Sub